home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / mui32dev.lha / MUI / Developer / Oberon / examples / RexxBox.mod < prev    next >
Text File  |  1995-11-19  |  1KB  |  45 lines
  1. (*------------------------------------------
  2.  
  3.   :Module.      RexxBox.mod
  4.   :Author.      Albert Weinert  [awn]
  5.   :Address.     Moltkestr. 68, 50859 Köln, Germany
  6.   :EMail.       a.weinert@darkness.gun.de
  7.   :Phone.       +49-221-480800
  8.   :Revision.    R.0
  9.   :Date.        10-Apr-1995
  10.   :Copyright.   Albert Weinert
  11.   :Language.    Oberon-2
  12.   :Translator.  AmigaOberon V3.20
  13.   :Contents.    <Kurzbeschreibung>
  14.   :Imports.     <Importiertes, Name/ShortCut des Autors>
  15.   :Remarks.     <Was Du willst, evtl. Usage>
  16.   :Bugs.        <Bekannte Fehler>
  17.   :Usage.       <Angaben zur Anwendung>
  18.   :RCSId.       $Id$
  19.   :History.     .0     [awn] 10-Apr-1995 : Erstellt
  20.  
  21. --------------------------------------------*)
  22. MODULE RexxBox;
  23.  
  24. IMPORT  Mui, gui:= RexxBoxGUI,y := SYSTEM, Exec, NoGuru;
  25.  
  26. VAR
  27.   running : BOOLEAN;
  28.   signal : LONGSET;
  29.  
  30. BEGIN
  31.    running := TRUE;
  32.  
  33.    WHILE running DO
  34.      CASE Mui.DOMethod( gui.app, Mui.mApplicationInput,y.ADR( signal ) ) OF
  35.        | Mui.vApplicationReturnIDQuit: running := FALSE;
  36.  
  37.      ELSE END;
  38.      IF signal # LONGSET{} THEN y.SETREG( 0, Exec.Wait(signal) ) END;;
  39.    END;
  40.  
  41. END RexxBox.
  42.  
  43.  
  44.  
  45.